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Testingflag = 0 

CToggleSwitchS.Visible = False 
CellTestingSw.Visible = False 
CToggleSwitch4.Visible = False 
SetLimitsFlag = 0 
TimeOutFlag = 0 

DigitOutNumbericText.lnputText = 15 
CellTimer.Enabled = False 
TankTimer. Enabled = False 
CombustAII.Timer4 = True 
CombustAII.Timer6 = True 
CombustAII. Height = 4141 
CombustAII.Width = 11835 
CelldischargeWaitTimer. Enabled = False 
CellWaitFlag = 0 
CellPurageLed. Value = False 
TankPurgeLed.Value = False 
Watch Dog Flag = 0 
Rs232Flag = 0 
Call MSOpenCom 
AlarmMsgLabel. Caption = fill 
Cell Record Flag = 0 
TemprecordFlag = 0 
TankrecordFlag = 0 
' DigitalBitOutl.BitNumber = 0 
' DigitalBitOutl.BitValue = True 
■ DigitalBitOutl.BitNumber = 1 
' DigitalBitOutl.BitValue = True 
' DigitalBitOutl.BitNumber = 2 
' DigitalBitOutl.BitValue = True 
' DigitalBitOutl.BitNumber = 3 
' DigitalBitOutl.BitValue = True 
' DigitalBitOutl.BitNumber = 0 
End Sub 

Private Sub Form QueryUnload(Cancel As Integer, UnloadMode As Integer) 
' SoftWIRE 

' IMPORTANT - The following lines of QueryUnload code were added by SoftWIRE. 

' Do not remove them or the program will not run correctly. 

Dim Form As Form 

Dim Count As Integer 

On Error Resume Next 

Count = 0 

For Each Form In Forms 

If Form.Visible Then 

Count = Count + 1 

End If 
Next Form 
If Count > 1 Then 

Cancel = True 



Me. Hide 
Else 

For Each Form In Forms 
Unload Form 
Next Form 
End If 
End Sub 
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CombustAII. Height = 411 0 
CombustAII. Width = 11835 
CellTestingSw.Value = False 
CToggleSwitch4.Value = False 
CToggleSwitch5.Value = False 
End If 
End Sub 

Private Sub StartStopButtonC1ick() 
DigitOutNumbericText.lnputText = 1. x 
CToggleSwitchl. Value = False 
CToggleSwitch2. Value = False 
CToggleSwitch3. Value = False 
If StartStopFlag = 0 Then 
StartStopFlag = 1 

StartStopButton. Caption = "&Stop M 
CToggleSwitchl. Visible = True 
CToggleSwitch2.Visible = True 
CToggleSwitch3.Visible = True 
CellTimeLabel. Caption = 0 
TankTimeLabel. Caption = 0 
EndButton. Visible = False 
SingleCellCharge. Caption = 0 
AlarmMsgLabel. Caption = will 
Call DateTimeStampDataFiles 
Else 

StartStopFlag = 0 
StartStopButton.Caption = "&Start M 
CToggleSwitchl. Visible = False 
CToggleSwitch2.Visible = False 
CToggleSwitch3.Visible = False 
TankTimer. Enabled = False 
CellTimer.Enabled = False 
EndButton. Visible = True 
Call SaveAIIDataFilesOnExit 
End If 
End Sub 

Private Sub StartStopButton RunBlock() 'Add your custom code here 
End Sub 

Private Sub TankDataButton Click() 
TankrecordFlag = 1 
TankTrackingDataForm.Show 
Do 

Reponse = Do Events 
Loop Until TankrecordFlag = 0 
End Sub 

Private Sub TankHiLimit DataFalse() 
TankPurgeLed. Caption = "Emptying" 
End Sub 

Private Sub TankHiLimit DataTrueQ 



TankPurgeLed. Caption = "Full" 
Call AddLbsTotankData 
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End Sub 

Private Sub TankHiLimit RunBlock( 
If StartStopFlag = 1 Then 
CToggleSwitch2.Value = False 
TankControlFlag = 1 
CToggleSwitch3.Value = True 
End If 
End Sub 

Private Sub TankPurgel_ed_RunBlock( 'Add your custom code here 
End Sub 

Private Sub TankTimel_abel_RunBlock( 'Add your custom code here 
End Sub 

Private Sub TankTimer Timer( 
Z = TankTimeLabel. Caption 
Z = Z+ 1 

TankTimeLabel. Caption = Z 
End Sub 

Private Sub TempDataButton Click( 
TemprecordFlag = 1 
TempTrackingForm.Show 
Do 

Reponse = Do Events 
Loop Until TemprecordFlag = 0 
End Sub 

Private Sub TempSelect_RunBlock( 'Add your custom code here 
End Sub 

Private Sub TestButton Click( 
Else 

'Disable Vaccum Pump 
'Indicate full 
'Turn on Injector 
Testingflag = 0 Then 
Testingflag = 1 

CToggleSwitch5.Visible = True 
CellTestingSw.Visible = True 
CToggleSwitch4.Visible = True 
CToggleSwitch5. Enabled = True 
CellTestingSw.Enabled = True 
CToggleSwitch4. Enabled = True 
TestButton. Caption = "Testing" 
On Error GoTo TestAlarm 
CombustAII. Height = 8120 
CombustAII.Width = 11835 
Testingflag = 0 

CToggleSwitch5. Visible = False 
CellTestingSw.Visible = False 
CToggleSwitch4. Visible = False 
TestButton. Caption = "Test" 
CToggleSwitch5. Value = False 
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CellTestingSw.Value = False 
CToggleSwitch4.Value = False 
TestButton. Caption = "Test" 
CombustAII. Height = 411 0 
CombustAII. Width = 11835 
CellTestingSw.Value = False 
CToggleSwitch4.Value = False 
CToggleSwitch5.Value = False 
End If 
Exit Sub 
TestAlarm: 

Response = MsgBox("Moving Window alarm", vbCritical, "Test Button") 
End Sub 

Private Sub TestButton_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub Timer5_RunBlock() 
'Add your custom code here 
X = MSComml.lnputLen 
Rs232RxData.Caption = MSComml. Input 
End Sub 

Private Sub ViewCellChargingButton Click() 
CellRecordFlag = 1 
CellChargeTime.Show 
Do 

Reponse = DoEvents 
Loop Until CellRecordFlag = 0 
End Sub 

Private Sub WatchDogTimer RunBlock() 'Add your custom code here 
End Sub 

Private Sub WatchDogTimer StatusReadyQ 
DigitalBitOutl.BitNumber = 0 
If WatchDogFlag = 0 Then 
Watch Dog Flag = 1 
DigitalBitOutl.BitValue = True 
Watch Dog Led. Value = False 
Else 

WatchDogFlag = 0 

DigitalBitOutl.BitValue = False 

WatchDogLed. Value = True 
End If 
End Sub 

Public Sub MSOpenCom() 
' Open MScom if not opened already 
On Error GoTo alarm 

If MSComml. PortOpen = False Then 

MSComml . CommPort = 1 

MSComml. PortOpen = True 
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SampleCOMDataTimer.TimerEnabled = True 
End If 

GoTo Bypass 
alarm: 

Response = MsgBoxf'failure (" & Err.Number & ") & (" & Err. Description & 11)11, vbCritic- 
enCom") 

'SampleCOMDataTimer.TimerEnabled = False 

AbortFlag = 1 
Bypass: 
End Sub 

Public Sub UPdateCellData() 

S$ = CellChargeTime.CellChargeTimeTxt.Text S$ = S$ & SingleCellCharge.Caption & 1 1 ,1 1 
CellChargeTime.CellChargeTimeTxt.Text = S$ S$ = TempTrackingForm.TempTrackingDataTxt.Text S$ = S$ & 
TemplNLevel.lnputText & "," TempTrackingForm.TempTrackingDataTxt.Text = S$ 
End Sub 

Public Sub UpDateTankData() 

S$ = TankTrackingDataForm.TankTrackingdataTxt.Text S$ = S$ & TankTimeLabel. Caption & "," 
TankTrackingDataForm.TankTrackingdataTxt.Text = S$ 
End Sub 

Public Sub UpDateTime() 

DateTi me Label. Caption = Date & " " & Time 

End Sub 

Public Sub DateTimeStampDataFiles() 

Const ForReading = 1 , ForWriting = 2, ForAppending = 8 Const TristateFalse = 0 Dim fs, f Crl_f$ = Chr$(13) & 
Chr$(10) 

' Time stamp temp File 

File$ = M C:\FillingStationFiles\FillingStationTemp.txt M 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.OpenTextFile(File$, ForAppending, TristateFalse) 
S$ = "[" & DateTimeLabel.Caption & "]Started" & CrLf$ 
f.Write S$ 

TempTrackingForm.TempTrackingDataTxt =1111 
f.Close 

' time stamp cell file 

File$ = "C:\FillingStationFiles\FillingStationCell.txt" 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.OpenTextFile(File$, ForAppending, TristateFalse) 
S$ = "[" & DateTimeLabel.Caption & "]Started" & CrLf$ 
f.Write S$ 

CellChargeTime.CellChargeTimeTxt = 1111 
f.Close 

' time stamp Tank file 

FileS = "C:\FillingStationFiles\FillingStationTank.txt" 
Set fs = CreateObject( M Scripting.FileSystemObject") 
Set f = fs.OpenTextFile(File$, ForAppending, TristateFalse) 
S$ = "[" & DateTimeLabel.Caption & "]Started" & CrLf$ 
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MLS Hydroxyl Filling Station (MLS-HFS) 

Copyright 2001-2004 by Stephen F. Meyer, All rights reserved 

Private Sub CellChargeReturnBotton Click( 

CombustAII.CellRecordFlag = 0 

Me. Hide 

End Sub 

Private Sub Commandl Click( 
End Sub 

Private Sub Datal Validate (Action As Integer, Save As Integer) 
End Sub 

Private Sub ClearButton Click( 
CellChargeTimeTxt = '"' 
End Sub 

Private Sub Form Load( 
' SoftWIRE 

' IMPORTANT - The following lines of Load code were added by SoftWIRE. 

' Do not remove them or the program will not run correctly. 

Load CombustAII 

'Load Ce1 IChargeTime 

Load TempTrackingForm 

Load TankTrackingDataForm 

'Wirel. Initialize 

End Sub 

Private Sub Form QueryUnload(Cancel As Integer, UnloadMode As Integer) 

SoftWIRE IMPORTANT - The following lines of QueryUnload code were added by SoftWIRE. 

Dim Form As Form 

Dim Count As Integer 

On Error Resume Next 

Count = 0 

For Each Form In Forms 

If Form.Visible Then 

Count = Count + 1 

End If 
Next Form 
If Count > 1 Then 

Cancel = True 

Me. Hide 
Else 

For Each Form In Forms 
Unload Form 
Next Form 

Do not remove them or the program will not run correctly. 



CellChargeTime - 2 
End If 
End Sub 

Public Sub OpenFillingStationTextFileO 

Const ForReading = 1 , ForWriting = 2, ForAppending = 8 Const TristateFalse = 0 Dim fs, f File$ = 
"C:\FillingStationFiles\FillingStationCell.txt M Set fs = CreateObject("Scripting.FileSystemObject") Setf = 
fs.OpenTextFile(File$, ForAppending, TristateFalse) S$ = CellChargeTimeTxt.Text f. Write S$ f.Close 
CellChargeTimeTxt = "" 
End Sub 

Private Sub ReadCellFileButton Click() 
Call ReadCellFileData 
End Sub 

Private Sub SaveButton Click() 
Call OpenFillingStationTextFile 
End Sub 

Public Sub ReadCellFileData() 

Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateFalse = 0 Dim fs, f, is CrLf = Chr$(13) & 
Chr$(10) * Read Cell Data File File$ = M C:\FillingstationFiles\FillingStationCell.txt M Set fs = 

CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(File$, ForReading, TristateFalse) On Error GoTo 
Finish S$ = f.ReadLine Do S$ = S$ & CrLf & f.ReadLine Loop Finish: CellChargeTimeTxt.Text = S$ f.Close 
End Sub 
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f. Write S$ 

TankTrackingDataForm.TankTrackingdataTxt = "" 

f.Close 

End Sub 

Public Sub Addl_bsTotankData() 

' Const ForReading = 1, ForWriting = 2, ForAppending = 8 
' Const TristateFalse = 0 
' Dim fs, f 

' Crl_f$ = Chr$(13) & Chr$(10) 
' time stamp Tank file 

' File$ = M C:\FillingStationFiles\FillingStationTank.txt M 

1 Setfs = CreateObject( M Scripting.FileSystemObject") 

' Setf = fs.OpenTextFile(File$, ForAppending, TristateFalse) 

' S$ = "[" & NumericText3.lnputText & "Psi]" 

' f. Write S$ 

' f.Close 

D$ = TankTrackingDataForm.TankTrackingdataTxt.Text 
D$ = D$ & S$ 

TankTrackingDataForm.TankTrackingdataTxt.Text = D$ 
End Sub 

Public Sub SaveAIIDataFilesOnExit() 

Const ForReading = 1, ForWriting = 2, ForAppending = 8 

Const TristateFalse = 0 

Dim fs, f 

Crl_f$ = Chr$(13) & Chr$(10) 
' Save temp File 

Z$ = TempTrackingForm.TempTrackingDataTxt.Text 
If Z$ = Then 
GoTo Bypassl 
End If 

File$ = "C:\FillingStationFiles\FillingStationTemp.txt" 

Set fs = CreateObject( M Scripting.FileSystemObject") 

Set f = fs.OpenTextFile(File$, ForAppending, TristateFalse) 

S$ = TempTrackingForm.TempTrackingDataTxt.Text & Crl_f$ 

f.Write S$ 

S$ = "[" & DateTimeLabel.Caption & "]STOPPED" & CrLf$ 
f.Write S$ 

TempTrackingForm.TempTrackingDataTxt = 

f.Close 

'Call 

Bypassl: 

' Save cell file 

Z$ = CellChargeTime.CellChargeTimeTxt.Text 
If Z$ = Then 
GoTo Bypass2 
End If 

File$ = "C:\FillingStationFiles\FillingStationCell.txr 

Set fs = CreateObject( M Scripting.FileSystemObject") 

Set f = fs.OpenTextFile(File$, ForAppending, TristateFalse) 



S$ = CellChargeTime.CellChargeTimeTxt.Text & CrLf$ 
f. Write S$ 

S$ = "[" & DateTimeLabel.Caption & "]STOPPED M & Crl_f$ 
f.Write S$ 

CellChargeTime.CellChargeTimeTxt.Text = "" 

f.Close 

Bypass2: 

' Save Tank file 
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Z$ = TankTrackingDataForm.TankTrackingdataTxt.Text 
If Z$ = "" Then 
GoTo Bypass3 
End If 

File$ = "C:\FillingStationFiles\FillingStationTank.txt" 

Set fs = CreateObject( M Scripting.FileSystemObject") 

Set f = fs.OpenTextFile(File$, ForAppending, TristateFalse) 

S$ = TankTrackjngDataForm.TankTrackingdataTxt.Text & CrLf$ 

f .Write S$ 

S$ = "[" & DateTimeLabel.Caption & "]STOPPED" & CrLf$ 
f.Write S$ 

TankTrackingDataForm.TankTrackingdataTxt.Text = ,,M 

f.Close 

Bypass3: 

End Sub 
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MLS Hydroxyl Filling Station copyright 2001-2004 by Stephen F. Meyer, All rights reserved 
Private Sub Commandl Click( 
Call OpenFillingStationtankFile 
End Sub 

Private Sub ClearButton Click( 
TankTrackingdataTxt =1111 
End Sub 

Private Sub Form Load( 
'SoftWIRE 

' IMPORTANT - The following lines of Load code were added by SoftWIRE. 

' Do not remove them or the program will not run correctly. 

Load CombustAII 

Load Ce1 IChargeTime 

Load TempTrackingForm 

'Load TankTrackingDataForm 

'Wirel. Initialize 

End Sub 

Private Sub Form QueryUnload(Cancel As Integer, UnloadMode As Integer) 
' SoftWIRE 

' IMPORTANT - The following lines of QueryUnload code were added by SoftWIRE. 

' Do not remove them or the program will not run correctly. 

Dim Form As Form 

Dim Count As Integer 

On Error Resume Next 

Count = 0 

For Each Form In Forms 

If Form.Visible Then 

Count = Count + 1 

End If 
Next Form 
If Count > 1 Then 

Cancel = True 

Me. Hide 
Else 

For Each Form In Forms 

Unload Form 

Next Form 
End If 
End Sub 

Private Sub ReadButton Click( 
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Call ReadTankFileData 
End Sub 

Private Sub SaveButton Click() 
Call OpenFillingStationtankFile 
End Sub 

Private Sub TankReturnButton Click() 
CombustAll.TankrecordFlag = 0 Me. Hide 
End Sub 

Public Sub OpenFillingStationtankFile() 

Const ForReading = 1 , ForWriting = 2, ForAppending = 8 Const TristateFalse = 0 Dim fs, f 

File$ = "C:\FillingStationFiles\FillingStationTank.txt" Set fs = CreateObject("Scripting.FileSystemObject") Set f = 

fs.OpenTextFile(File$, ForAppending, TristateFalse) S$ = TankTrackingdataTxt.Text f.Write S$ f .Close 

TankTrackingdataTxt.Text = "" 

End Sub 

Public Sub ReadTankFileDataQ 

Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateFalse = 0 Dim fs, f, is CrLf = Chr$(13) & 
Chr$(10) * Read Tank Data File File$ = M C:\FillingStationFiles\FillingStationTank.txt M Set fs = 

CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(File$, ForReading, TristateFalse) On Error GoTo 
Finish S$ = f.ReadLine Do S$ = S$ & CrLf & f.ReadLine Loop Finish: TankTrackingdataTxt.Text = S$ f.Close 
End Sub 
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' Program MLS Hydroxyl Filling Station (MLS-HFS) ' Copyright 2001-2004 by Stephen F. Meyer d.b.a. Appli-Tech, All 

rights Reserved 

Dim CellControlFlag As Integer 

Dim StartStopFlag As Integer 

Dim TankControlFlag As Integer 

Dim TempControlFlag As Integer 

Dim Testingflag As Integer 

Dim SetLimitsFlag As Integer 

Dim TimeOutFlag As Integer 

Dim CellWaitFlag As Integer 

Dim WatchDogFlag As Integer 

Dim Rs232Flag As Integer 

Dim WorkingString As String 

Public CellRecordFlag As Integer 

Public TemprecordFlag As Integer 

Public TankrecordFlag As Integer 

Private Sub Alternatorl_abel_RunBlock() 

'Add your custom code here 

End Sub 

Private Sub A1tl_ed_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub Analoglnl_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub Analogln2_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub Analogln5_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub CBarMeterl_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub CBarMeter2_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub CBGreaterThanl DataGreaterThan() 
If TankPurgeLed. Value = True Then 
TankPurgeLed. Caption = "Filling" 
TankPurgeLed.Value = False 
End If 
End Sub 

Private Sub CBGreaterThanl_RunBlock() 'Add your custom code here 
End Sub 
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Private Sub CBGreaterThan2 DataGreaterThan() 
If InjectorPressLed. Value = True Then 

InjectorPressLed. Caption = "Low Pres" 

InjectorPressLed. Value = False 
End If 
End Sub 

Private Sub CBGreaterThan2_RunBlock() 'Add your custom code here 
End Sub 

Private Sub CBGreaterThan3 DataGreaterThan() 
ALTOverVoltageLed. Value = True 
End Sub 

Private Sub CBGreaterThan3_RunBlock() 'Add your custom code here 
End Sub 

Private Sub CBLessThanl DataLessThan() 
X= CBLessThanl. InputX 
I f X = 0 Then 

CellPurageLed.ColorOn = &HFFFFFF 
CellPurageLed. Caption = "Open" 
Else 

CellPurageLed.ColorOn = &HCOFFFF 
CellPurageLed. Caption = lily 
End If 

CellPurageLed.Value = True 
End Sub 

Private Sub CBLessThanl_RunBlock() 'Add your custom code here 
End Sub 

Private Sub CBLessThan2 DataLessThan() 
X= CBLessThan2. InputX 
If X = 0 Then 

TankPurgeLed.ColorOn = &HFFFFFF 
TankPurgeLed. Caption = "Open" 
Else 

TankPurgeLed.ColorOn = &HCOFFFF 
TankPurgeLed. Caption = lily 
End If 

TankPurgeLed. Value = True 
End Sub 

Private Sub CBLessThan2_RunBlock() 'Add your custom code here 
End Sub 

Private Sub CBLessThan3 DataLessThan() 
X = CBLessThan3. InputX 
If X = 0 Then 
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InjectorPressLed.ColorOn = &HFFFFFF 
InjectorPressLed. Caption = "Open" 
Else 

InjectorPressLed.ColorOn = &HCOFFFF 
InjectorPressLed. Caption = "" 
End If 

InjectorPressLed. Value = True 
End Sub 

Private Sub CBLessThan3_RunBlock() 'Add your custom code here 
End Sub 

Private Sub CBLessThan5 DataLessThan() 
ALTOverVoltageLed. Value = False 
End Sub 

Private Sub CBLessThan5_RunBlock() 'Add your custom code here 
End Sub 

Private Sub CBMultiply2 RunBlock() 'Add your custom code here 
End Sub 

Private Sub CBMultiply3 RunBlockQ 'Add your custom code here 
End Sub 

Private Sub CBMultiply4 RunBlock() 'Add your custom code here 
End Sub 

Private Sub CBMultiply5TRunBlock() 'Add your custom code here 
End Sub 

Private Sub CBMuxl_RunBlock() 'Add your custom code here 
End Sub 

Private Sub CBOrl_RunBlock() 'Add your custom code here End Sub 
Private Sub Constantl_RunBlock() 'Add your custom code here 
End Sub 

Private Sub Ce11CBarMeterl_RunBlock() 'Add your custom code here 
End Sub 

Private Sub CelldischargeWaitTimerTimero 
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CellWaitFlag = 1 
End Sub 

Private Sub CellinputLevel_RunBlock() 'Add your custom code here 
End Sub 

Private Sub CellPurageLed RunBlock() 
'Add your custom code here 
End Sub 

Private Sub CellSelectNumber_RunBlock() 'Add your custom code here 
End Sub 

Private Sub CellTestingSw RunBlock() 
'Add your custom code here 
End Sub 

Private Sub CellTestingSw ToggleStateChanged(ByVal bNewState As Boolean) 

If bNewState = True Then 

CellSelectNumber.lnputText = 0 

CSIider4.Visible = True 

Else 

CellSelectNumber.lnputText = 1 
CSIider4.Visible = False 
End If 
End Sub 

Private Sub CommandButtonl Click() 
End Sub 

Private Sub CellTimer Timer() 
X = CellTimeLabel. Caption 
X = X + 1 

CellTimeLabel. Caption = X 
X SingleCellCharge. Caption 
X = X + 1 

SingleCellCharge. Caption = X 
End Sub 

Private Sub CellTimeTimer_RunBlock() 'Add your custom code here 
End Sub 

Private Sub ClearTimeButton Click() 
CellTimeLabel. Caption = 0 
TankTimeLabel. Caption = 0 
SingleCellCharge. Caption = 0 
End Sub 

Private Sub CLed3 RunBlock() 
If StartStopFlag = 1 Then 
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Call OpenFillingStationTempFile 

End Sub 

Private Sub TempReturnButton Click() 
CombustAll.TemprecordFlag = 0 Me. Hide 
End Sub 

Public Sub OpenFillingStationTempFileO 

Const ForReading = 1 , ForWriting = 2, ForAppending = 8 Const TristateFalse = 0 Dim fs, f 

File$ = "C:\FillingStationFiles\FillingStationTemp.txt" Set fs = CreateObject("Scripting.FileSystemObject") Setf = 

fs.OpenTextFile(File$, ForAppending, TristateFalse) S$ = TempT rackingDataTxt.Text f.Write S$ f.Close 

TempT rackingDataTxt.Text = "" 

End Sub 

Public Sub ReadTempDataFile() 

Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateFalse = 0 Dim fs, f, is CrLf = Chr$(13) & 
Chr$(10) ' Read Temp Data File File$ = M C:\FillingStationFiles\FillingStationTemp.txt" Set fs = 

CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(File$, ForReading, TristateFalse) On Error GoTo 
Finish S$ = f.ReadLine Do S$ = S$ & CrLf & f.ReadLine Loop Finish: TempTrackingDataTxt.Text = S$ f.Close 
End Sub 
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If CLed3. Value = False Then 
CToggleSwitch2. Value = False Turn off Vaccum 
CToggleSwitchl. Value = False 'turn off Alt 
CToggleSwitch3. Value = False 'turn off Inject 
TempControlFlag = 1 

Alarm Msg Label. Caption = "Over Temp Shutdown" 
' Respons = MsgBox("Over Temp Shutdown", vbCritical, "Temp Hi Limit") 
Else 

TempControlFlag = 0 

Alarm Msg Label. Caption = fill 

End If 
End If 
End Sub 

Private Sub CLed5 Click() 
End Sub 

Private Sub CLed5_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub ClockTimer Timer() 
Call UpDateTime 
End Sub 

Private Sub CSIider6_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub CSIider7_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub CSIider9_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub CToggleSwitchl, ToggleStateChanged(ByVal bNewState As Boolean) 
If StartStopFlag = 1 Then 

If TempControlFlag = 1 Then 

CToggleSwitchl. Value = False 

CToggleSwitch3. Value = False 

CellTimer. Enabled = False 

AlarmMsgLabel. Caption = "Hi Temp Over Limit trip" 

'Response = MsgBox("Hi Temp Over Limit trip", vbCritical, "Turn On Alt Sw") 
GoTo Bypass 
End If 

X = DigitOutNumbericText.lnputText 
If bNewState = True Then 
If HiCelled. Value = False Then 
AlarmMsgLabel. Caption = "" 
If X And 1 Then 
X = X- 1 

DigitOutNumbericText.lnputText = X 
End If 

If X And 8 Then 



X = X -8 

DigitOutNumbericText.lnputText = X 
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Private Sub Label 3_RunBlock() 'Add your custom code here 
End Sub 

Private Sub Label 5 Change() 
End Sub 

Private Sub Labell Change() 
End Sub 

Private Sub HiCelled DataFalse() 
CellPurageLed. Caption = "Emptying" 
End Sub 

Private Sub HiCelled DataTrue() 
CellPurageLed.Caption = "Full" 
End Sub 

Private Sub HiCelled RunBlockQ 
If StartStopFlag = 1 Then 

If CToggleSwitchl. Value = True Then 

X = DigitOutNumbericText.lnputText 

If HiCelled.Value = False Then 

If X And 2 Then 

X = X - 2 

DigitOutNumbericText.lnputText = X 

CellControlFlag = 1 

CToggleSwitch2. Value = True 

CToggleSwitchl. Value = False 

CellTimer. Enabled = False 

Call UPdateCellData 

End If 

End If 

End If 
End If 
End Sub 

Private Sub InjectorShap Change() 
End Sub 

Private Sub HiTankSelect RunBIOCk() 'Add your custom code here 
End Sub 

Private Sub InjectAnologLevel RunBlock() 'Add your custom code here 
End Sub 

Private Sub lnjectOffLed-DataFalse() 

InjectorPressLed. Caption = "Enabled" InjectorPressLed. Value = False X = DigitOutNumbericText.lnputText If X And 4 
Then 
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If bNewState = True Then 

If InjectOffLed.Value = False Then If X And 4 Then X = X - 4 DigitOutNumbericText.lnputText = X End If 

End If 

Else 

X = X Or 4 

DigitOutNumbericText.lnputText = X 
End If 
End If 
End Sub 

Private Sub CToggleSwitch4 RunBlock() 'Add your custom code here 
End Sub 

Private Sub CToggleSwitch4 ToggleStateChanged(ByVal bNewState As Boolean) 
If bNewState = True Then 
HiTankSelect.lnputText = 0 
TankGainAdjust. Visible = True 
Else 

HiTankSelect.lnputText = 1 

TankGainAdjust. Visible = False 
End If 
End Sub 

Private Sub CToggleSwitch5 RunBlock() 'Add your custom code here 
End Sub 

Private Sub CToggleSwitch5 ToggleStateChanged(ByVal bNewState As Boolean) 

If bNewState = True Then 

TempSelect.lnputText = 0 

CSIider8.Visible = True 

Else 

If Rs232Flag = 0 Then 
TempSelect.lnputText = 1 
Else 

TempSelect.lnputText = 2 
End If 

CSIider8.Visible = False 
End If 
End Sub 

Private Sub DigitalOut2_RunBlock() 'Add your custom code here 

' If WatchDogFlag = 1 Then 

' DigitalOut2.Port = cbFirstPortA 

' DigitalOut2.Value = 0 

' WatchDogFlag = 0 

' Else 

' DigitalOut2.Port = cbFirstPortA 
■ DigitalOut2. Value = 1 
' WatchDogFlag = 1 
1 End If 
End Sub 
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Private Sub DegFValue_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub DigitalBitOutl RunBlock() 
'Add your custom code here 
End Sub 

Private Sub DigitOutNumbericText RunBlock() 
'Add your custom code here 
End Sub 

Private Sub DoLoopI RunBlock() 
'Add your custom code here 
End Sub 

Private Sub EndButton Click() 
CToggleSwitchl. Value = False 
CToggleSwitch2. Value = False 
CToggleSwitch3. Value = False 
CToggleSwitchl. Visible = False 
CToggleSwitch2. Visible = False 
CToggleSwitch3. Visible = False 
TimeOutFlag = 1 
EXitTimer. Enabled = True 
Do 

Response = Do Events 
Loop Until TimeOutFlag = 0 
WatchDogFlag = 0 
End 

End Sub 

Private Sub ExitTimer Timer() 
TimeOutFlag = 0 
End Sub 

Private Sub Form Load() 
'SoftWIRE 

' IMPORTANT - The following lines of Load code were added by SoftWIRE. 

' Do not remove them or the program will not run correctly. 

Load CombustAII 

Load CellChargeTime 

Load TempTrackingForm 

Load TankTrackingDataForm 

Wirel. Initialize 

CellControlFlag = 0 
StartStopFlag = 0 
CToggleSwitchl. Visible = False 
CToggleSwitch2.Visible = False 
CToggleSwitch3.Visible = False 
TankControlFlag = 0 
TempControlFlag = 0 



CombustAII - 12 
' Do 

' Response = DoEvents() 

' Loop Until CellWaitFlag = 1 

' CelldischargeWaitTimer. Enabled = False 

CellControlFlag = 0 
End If 

Else 

SingleCellCharge. Caption = 0 

CellTimer. Enabled = True 

If Lowcelled. Value = True Then 

CellPurageLed. Caption = 

Cell2uragel_ed.Value = False 'turn off Cell Purge 

End If 

End If 
End If 
End Sub 

Private Sub LowTankLimitLed DataFalse() 
TankPurgeLed. Caption = "Filling" 
End Sub 

Private Sub LowTankLimitLed DataTrue() 
TankPurgeLed. Caption = "Emptying" 
End Sub 

Private Sub LowTankLimitLed RunBlock() 
If StartStopFlag = 1 Then 

If LowTankLimitLed.Value = True Then 'abovt Limit 
TankControlFlag = 0 

'CToggleSwitch2. Value = True 'Enable Vaccum Sw 
'TankTimer. Enabled = True 
'TankTimeLabel. Caption = 0 
Else 

If Lowcelled. Value = False Then 'Cell Abovt Lower Limit? 
CToggleSwitch2. Value = True 'Enable Vaccum Sw 
TankTimeLabel. Caption = 0 'Clear Timer 
TankTimer.Enabled = True 'Enable tank timer 

Else 

TankTimer.Enabled = False 'STop timing 
End If 
End If 

CToggleSwitch3. Value = False 'Disable Injector 
End If 
End Sub 

Private Sub NumericText4 Click() 
End Sub 

Private Sub SampleCOMDataTimer RunBlockQ 
'Add your custom code here 
End Sub 

Private Sub SampleCOMDataTimer_StatusReady() 
If Rs232Flag = 1 Then 
MSComml.Output = Chr$(13) 



X = MSComml.lnBufferCount 
S$ = MSComml. Input 
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Private Sub DegFValue_RunBlock() 
'Add your custom code here 
End Sub 

Private Sub DigitalBitOutl RunBlock() 
'Add your custom code here 
End Sub 

Private Sub DigitOutNumbericText RunBlock() 
'Add your custom code here 
End Sub 

Private Sub DoLoopI RunBlock() 
'Add your custom code here 
End Sub 

Private Sub EndButton Click() 

CToggleSwitchl. Value = False CToggleSwitch2.Value = False CToggleSwitch3. Value = False CToggleSwitchl.Visible 
= False CToggleSwitch2.Visible = False CToggleSwitch3. Visible = False 
TimeOutFlag = 1 ExitTimer. Enabled = True Do 

Response = DoEvents Loop Until TimeOutFlag = 0 WatchDogFlag = 0 End 
End Sub 

Private Sub ExitTimer Timer() 
TimeOutFlag = 0 
End Sub 

Private Sub Form Load() 
' SoftWIRE 

' IMPORTANT - The following lines of Load code were added by SoftWIRE. 

' Do not remove them or the program will not run correctly. 

Load CombustAII 

Load CellChargeTime 

Load TempTrackingForm 

Load TankTrackingDataForm 

Wirel. Initialize 

CellControlFlag = 0 StartStopFlag = 0 CToggleSwitchl.Visible = False CToggleSwitch2. Visible = False 
CToggleSwitch3. Visible = False TankControlFlag = 0 TempControlFlag = 0 



